home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CHIFA.z / CHIFA
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCHHHHIIIIFFFFAAAA((((3333FFFF))))                                                            CCCCHHHHIIIIFFFFAAAA((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CHIFA   - CHIFA factors a complex Hermitian matrix by elimination with
  10.      symmetric pivoting.
  11.  
  12.      To solve  A*X = B , follow CHIFA by CHISL.  To compute  INVERSE(A)*C ,
  13.      follow CHIFA by CHISL.  To compute  DETERMINANT(A) , follow CHIFA by
  14.      CHIDI.  To compute  INERTIA(A) , follow CHIFA by CHIDI.  To compute
  15.      INVERSE(A) , follow CHIFA by CHIDI.
  16.  
  17.  
  18. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  19.       SUBROUTINE CHIFA(A,LDA,N,KPVT,INFO)
  20.  
  21. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  22.      On Entry
  23.  
  24.      AAAA COMPLEX(LDA,N)
  25.         the Hermitian matrix to be factored.
  26.         Only the diagonal and upper triangle are used.
  27.  
  28.      LLLLDDDDAAAA INTEGER
  29.         the leading dimension of the array  A .
  30.  
  31.      NNNN INTEGER
  32.         the order of the matrix  A .  On Return
  33.  
  34.      AAAA a block diagonal matrix and the multipliers which
  35.         were used to obtain it.
  36.         The factorization can be written  A = U*D*CTRANS(U)
  37.         where  U  is a product of permutation and unit
  38.         upper triangular matrices , CTRANS(U) is the
  39.         conjugate transpose of  U , and  D  is block diagonal
  40.         with 1 by 1 and 2 by 2 blocks.  KVPT    INTEGER(N)
  41.         an integer vector of pivot indices.
  42.  
  43.      IIIINNNNFFFFOOOO INTEGER
  44.         = 0  normal value.
  45.         = K  if the K-th pivot block is singular.  This is
  46.         not an error condition for this subroutine,
  47.         but it does indicate that CHISL or CHIDI may
  48.         divide by zero if called.  LINPACK.  This version dated 08/14/78 .
  49.      James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.  Subroutines and
  50.      Functions BLAS CAXPY,CSWAP,ICAMAX Fortran
  51.      ABS,AIMAG,AMAX1,CMPLX,CONJG,REAL,SQRT
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.